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EDTSSCRMOVETO = move to a specified text Line Sep-1984 01:36: AX-11 Bliss-3 
: 18: sep-1964 94:30:39 HANS TU Bh ies’ 

3 1 1 XZTITLE "EDTSSCRMOVETO = move to a specified text tine. 
3 § § MODULE EDTSSCRMOVETO ( : : ! Move te 3 ® poecit fied text lin 
: ? Boz SDENT = 'v04-000 CRMOVETO.BLI 
3 > 905 BEGIN 
: 4 007 : | pomenaneeeenccnceseensensorensneneresensnenenssensennnennsoneenestooseeeeees 
3 * * 
3 y 009 1 i COPYRIGHT (c) 1978, 1980 1982, 1984 BY * 
; 0010 1 i® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
3 1) pot : is ALL RIGHTS RESERVED. * 
P4 ie 
; ig $018 1 is rus SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPLED * 
3 14 0014 1 it Y IN me WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
s 15 0015 1 is ONCLUSION OF THE ABOVE gilt NOTICE. THIS SOFTWARE OR ANY a's * 
s Bate 1 i® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVA ILABLE TO ANY * 
a 0017 1 i* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; 18 pots ! :* TRANSFERRED. . 
: $0 0020 1 '* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOT ICE * 
3 1 0021 1! D SH ‘a1 NOT BE CONSTRUED AS A COMMITMENT BY DIGI ITAL EQUIPMENT * 
; $§ 4 ¢ ! 7 CORPORATI . 
; «26 0024 1 i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3; 2 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. x 
; @ 0026 1 !«* * 
: ef 0027 1 !« * 
: $8 it : leunenenenaneenenenneenennenneererenteererertnnrntnenennnnentnetnntntnntnntns 
; $0 0080 1 
; 31 0031 1 !4¢4 
5 32 Oo36 1! FACILITY: EDT == The DEC Standard Editor 
; 3 0033 1} 
s 0034 1 | ABSTRACT: 
; 0035 1! 
3 3 Boes ! This module moves to a specified text Line. 
: $ sit ' ENVIRONMENT: Runs at any access mode - AST reentrant 
: 29 aye : AUTHOR: Bob Kushlis, CREATION DATE: September 8, 1979 
: 42 0042 1 | MODIFIED BY: 
; «66 0043 1: 
:; «44 044 1! 1-001 - Original. DJS 12-Feb-1981. This module was created by 
; 65 045 1! extract ing the routine rita to, ok module SCREEN. 
: 46 B08 1 i “808 - Regularize pooters., 5 Ht? r-1981 
3s 67 047 1! - Return a value. i a 7 
: re st : ti ~004 - Improve the eee of the Listing. JBS 17-Jun-1983 
: 50 0050 1 


2 oS 
VETO.BLI; 


e 
Edit: JBS1004 


v Cee eC OC OC OC OO CO CC CC CC CC OO OC CO OO OO ee 


See re te *ecesesee SOG HS OS OS 6G HS FS FS FS HR OS HS OR FS FE OS FS FS FS FS 8G FS FG FS FS FS FS FR OR HS FS FS OS FS OS HS OSHS FSFE TS SS FSS FETE SS 


SCRMOVETO.BLI; 


eee pt oS a oe 


Sep-1986 12:26:32 


4 


f 


1 


es 
on 
*e. 
= 
t=] eo @ 
- w ” Cc 
a [4 bd 4 wee 
s ” <= z oat ve 

- a o a oe z ~ | 
—- Zc _ w (7) w Oo 
yr) ws oe os oe oT) —_ a . 
e _ 4 vs ” 4 oO ws - 

w “MW 
ae 5 ” =z a) ry.) = ws w £ 
_—- ww - &- 6 — _ wr-ew OF w «& om 
v a ay ve a ” x= 
eo uw ws “” w s — ¢ 
a oO - [a] w - hd a $ _ 
- of s ” w _ 

w w or w oO _ ” « 
—S ad = «£a = =< « 4 w 
ra 2 — aw vw i ve > - 
= > 3 a > = oe bd 
2 _ oe s _ o (vy) w 

Ake ee) 
, = “ emo a ee me me mmm meme em em emems 


Cel el eel eel el ek el oe el el el ll el el el el ee el eh ee el el el oe 


Declarations 


RNARAAAARSOSOSOSOSOR RNA RRR eDeED 


ERTOSERROVE TO EDTSSCRMOVETO = move to a specified text Line 1 


SE'ROVIOLN "='move toe specified text Lin ii gep-198e fo:2e:3 — Lebtssncisekmoveto-ec 174 a 
ZSBTTL "EDTSSSC_MOVTOLN = move to a specified text Line’ 


GLOBAL ROUTINE EDTSSSC_MOVTOLN ( ! Move to a specified text Line 
1 ‘ ! Target Line number 


ERTSRERMOVE TO 


5 


'e4 
! FUNCTIONAL DESCRIPTION: 


WHILE (.EDT$$G_LN_NO GTR .N) DO 
BEGIN 


IF ( NOT EDTSSRD_PRVLN ()) THEN RETURN (0); 
EDTS$G_LN_NO = .EDTS$G_LN_NO - 1; 
END; 


WHILE (.EDTS$$G_LN_NO LSS .N) DO 
BEGIN 


$ 1 

3 1 

3 1 

3 1 

3 1 

3 1 

: 1 1! 

3 13 

; 4 1! 

; 9% 1} Moves to a specified record. N is the value of EDTS$S$G_LN_NO which we want 
; : to move to. Just keep going backward cr forward until théy match. 
$ 3 ; FORMAL PARAMETERS: 

3 Ri : N The target relative record number 

3 + 9 1 ! IMPLICIT INPUTS: 

9 ¢ . 3 

; 1! EDTS$G_LN_NO 

: 104 1! 

; 105 1 ! IMPLICIT OUTPUTS: 

3 196 1! 

; 10 1! EDTS$$G_LN_NO 

; 108 .s 

; 109 1 ! ROUTINE VALUE: 

3; 110 1! 

Pa 1! 1 = found the record 

3 \\¢ : } 0 = no such record in this buffer 

3 148 ! H SIDE EFFECTS: 

3 118 , May reposition us in the work file. 

3; 6118 1 !-- 

; 119 1 

: : BEGIN 

—_ § exveme ROUTINE 

te TSSRD_NXTLN, ' Read the next Line 

g : ¢ EDTSSRD_PAVLN; ! Read the previous line 

3; tee EXTERNA 

s 127 EDTS$G_LN_NO, ' Current relative record number. 
: 128 EDTS$A_WK LN : REF LN BLOCK, ' Pointer to the current record in the work file 
; ! 9 EDT$$7_EOB_LN : LN_BLOCK; ' Special record to signal CE0B) 
3 ' 1 

> | § 

ceo 

; 135 

oh ey 

as 

ea 

3 1 

3 140 

3 «(141 
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; Routine Size: 95 bytes, Routine Base: _EDTSCODE + 0000 


4 
EDTSSCRMOVETO DTSSCRMOVETO = move to a specified text Line 16-Sep-1984 01:36: AX-11 Bliss-32 V4.0-74 P 4 
ba 800 EDTSeSC MOVTOLN = move to 4 by As text Lin 1 =300 71382 93:38:39 EDT REISER OVETO ae oe (3) 

; 14 1 F ( NOT EDTSSRD_NXTLN ()) : 

; (16 878 : THEN > : 

3 146 fe 4 BEGIN + ¢ 

3 145 15 4 ASSERT (.EDTSSA_WK_LN EQLA EDT$$2Z_EOB_LN); ' ¢ 

; 146 71 ASSERT ((.EDTSSG_LA_NO + 1) EQL .A); + 

; 1? 4 END; : ‘ 

3 129 71 EDTSSG_LN_NO = .EDTSS$G_LN_NO + 1; ' ¢ 

; 150 7 END; + ¢ 

3; «6151 721 4 

3 ¢ 7 ¢ RETURN (1); ' ¢ 

. 7 END; ! of routine EDTS$SC_MOVTOLN : ‘ 

+ ¢ 

-TITLE EDTSSCRMOVETO EDTSSCRMOVETO = move to a specifi | 

; ed text line s ¢ 

- IDENT \v04-000\ : 

-EXTRN EDTSSRD_NXTLN, EDTSS$RD_PRVLN a 4 

-EXTRN EDTS$G_CN_NO, EDTSSA_WR_L o | 

-EXTRN EDTS$$Z_EOB_LN, EDTSSINTER_ERR : 

-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 z 4 

' ¢ 

000¢ 00000 -ENTRY EDTSS$SC_MOVTOLN, gave R2,R3 : 0657 - 4 

53 00000000G 00 9E 4 MOVAB EDTSSINTER_ERR, R 3 $4 

52 000000006 09 9E 0000 MOVAB EDT$$G_LN_NO, R2 : cr’ 

06 «AC 62 D1 00010 1$ CMPL DT$$G_LN_NO, N ; 0701 - 4 

OE 15 00014 BLEQ s _. 4 

000000006 90 2 4 0016 CALLS 40, + ten ites ; 0704 ie | 

C E Baie BLBC RO, 6$ ; g 4 

62 07 00020 DECL Df$$G_LN_NO : 0706 ; 

FS 11 00022 BRB : 0701 » 4 

04 Ac 62 01 8 4 28 CMPL EBTSS6_LN_NO, N ; 0709 | 

3 18 00028 BGEQ $ ; 4 

000000006 00 Fe 002A CALLS #0, EDTSSRD_NXTLN ; 0712 s ¢ 

0 3 44 1 BLBS RO, 4$ 3 ar 

Sth 49 45 0 MOVAB EDT$$2_E08 LN, RO ; 0715 | 

00000006 D1 00058 CMPL EDTSSALWK_CN, “RO : 4 

$3 0 FB 44 CALL #0, EDTSSINTER_ERR 3 3 ‘ 

50 6 1 C1 00047 3$ ADDL #1, EDT$$G_LN_AO, RO 3 0716 - 1 

04 AC bt 48 CMPL RO, i 3 7 

8 GF BEQL 6 3 ; 4 

63 a) 1 CALLS #0, EDTSSINTER_ERR : 3 4 

62 06 4 4$: INCL EDTS$¢_LN_NO : 0719 3 4 

cc 11 00 6 BRB $ 0709 3: 4 

50 1 Bo 5$: MOVL #1, RO ; 0722 ¢ 

4 3 8 RET $ = 4 

50 BS C 6$: CLRL RO ; 0723 - 4 

4 OOOSE RET 3 | 

s 4 

: 

| 

os { 

4 

e ( 


i 154 oree 1 
3 33 725 1 !<BLF/PAGE> 


EDTSSCRMOVETO DISSCRMOVETO = move to a specified text Line Sep-1984 AX-11 Bliss-32 V4.0-74 Pa 
Ou 000 EO teise -MOVTOLN = move to a 4 bbe A text lin 1 1$-Se0-1944 93 3: 33 Ebr. SRCISCRMOVETO.BLI; ” (3 
; 135 Ot ! END ! of module EDTSSCRMOVETO 

: 4 $ 728 0 ELUDOM 

: PSECT SUMMARY 

3 Name Bytes Attributes 

; _EDTSCODE 95 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

; Library Statistics 

3 quoceess §yabe(§ cocecoce Pages Processing 

: File Total Loaded Percent Mapped Time 

; ~$335gDUAz8: EDT. SRCJEDT.L32;1 377 é 1 40 00:00.2 

3 55$DUA28: CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 

$ COMMAND QUALIFIERS 

3 PL ISS/ENECK@ CE TELD INET IAL OPT INS ZED /MOTRACEBACK/L 184, 198: SCAROVE 10/08) 908 JS: SCRROVETO MSRC$:SCRMOVETO.BLI/UPDATE=(ENHS$:S 
3; Size: 95 code + 0 data bytes 

3; Run T : :10. 

3; Elapsed Time: :12. 

3 Lines/CPU Min: 411 

: enone ral 1197 

3; Memor cy Ut sed: 70 pages 

3; Compilation Complete 
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